Google
 
Trailing-Edge - PDP-10 Archives - 6.1_emacs_manuals_1er - emacs/lunar.:ej
There are no other files named lunar.:ej in the archive.
 W
[0+8+FQ(+4)[1
0FO10F"G+Q1
'W+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
  Y!2!=""* v!""*!r!}l{:Fk~	x
v'3GRAJ )"R"^LXoz*6t?I		$0^j
|FP+5an=	=:!:/:c:t:::U:t:;:I$	$242B33&$X$d2P2^3-382l2{3t377(:,[,j#p#z#d#k?h?n& Load Airless Environmenty
0,-1a-15."E-2d'
j:s"N
.,(zj^i//).fx*(-d)'"#0'(
z"Nhfx*'"#0'(
0fsModified
fsXUname:F6[1
F=1MOON5"E:I1MOON'
Q1M.VUser Name
:I1EMACS <1>
Q1UEditor name:I..J1 EDITOR
]1M(M.M& Set Mode Line)
m.m^R Character Searchu.S
m.m^R Defun Searchu...S
1m.vTags Find File
1uInhibit Write
0m.VDisplay Matching Paren
m.m^R Reposition Windowu.R
q:.X(26.)u:.X(5)
m.mView Bufferu:.X(V)
m.m^R Prefix Controlu.^
m.m^R Prefix Control-Metau.\
10.^fs^RInit,10.^fs^RCmacro
"*5+1:F..D|
`*5+1:F..D'
,*5+1:F..D'
&*5+1:F..DA
:i*.!?m.vFill Extra Space List
^:I...!/-1fspjatyw/
m.m^R Twiddle Charactersu.T
m.m^R Twiddle Wordsu..T
m.m^R Twiddle Sexpsu...T
m.m^R Various Quantitiesu.Q
fsOspeedf"N-1201"L
1m.vNext Screen Context Lines
-1fs^RMore''
M.MList Buffersu:.X(2)
M.M^R Mini Visited Fileu:.X(24.)
0USpace Indent Flag
q. u... 
q..?u.?
m.m^R Load Kbdmacu:.X(()
m.m^R Load Wordabu... 
F=User NameMOON"E
1000000.U.H
1uAuto Directory
q.Xu.C
:i*C.X   uPrefix Char List
q.Wu.X
q.Gu.W
^:I*|
33.^fs^Rinit[..
^:I*/:s--Text follows this line--
w
.F[VBFSZ-.F[VZ.:WG5
FF"EJ<.-Z;4,40.IL>'B:wm.m^R Delete Blank Lines2wjm2wZJH
/[...Y
|M.VRMAIL Reply Hook
^:I*/DSK:MOON;LSPISH MAIL/M.VRMAIL O Filename
'
1f[REREAD
FSXJNAME:F6[J
F~JLISPT"'E(F~JMACST"'E)"N
M(M.MLOAD LIBRARY)LISPT'
F~JMAILT"E:IEditor TYPEAIL]
M(M.MTEXT MODE)'
!F~JRMAIL"E)w)w:i*MMRMAIL(0('!
]J
FS%TOFCI"E
M.M^R Autoarg[0460.-1[1
10.<Q0,%1^FS^RCMAC>
]1]0'
fsmsnamefsdsnameetgazonk .del
)F"Nfsdfilew1:<fsecholines-3"G3fsecholinesw'MMFind File>f"n^:fg
)w0(''
f]reread
13.f?
0fsQPun
5426m..l
0u..H
)f"N[01:<m(q0(]0))>f"n^fg''
& Twiddle Subrv[5[2[3[4
"G15R-25L.[015R
<.u315R-15fx4z-.u2
q3j-15fx3g4z-q2jg3>
q0,.'
"L-15L15R.[0
-<z-.u3-25L15fx4.u2
z-q3j-15fx3g4q2jg3>
q2,q0'
.,(w).fu2j
15R-15L.u0
q2j15R-15fx4z-.u2
q0j15fx3g4z-q2j.u2g3
q0q0,.(q2j)^R Twiddle CharactersEff"E13,1a-13"E
0a(-d-c)ic-2''
:i*,:m(m.m& Twiddle Subr)^R Twiddle Words":i*fw,:m(m.m& Twiddle Subr)^R Twiddle Sexps#:i*^fl,:m(m.m& Twiddle Subr)^R Various Quantitiesy

q..0[2
!get1!M.IFI:FC[00[1
q0"Dq0-0u1-3u0
<%0;M.I:FI"Dq1*8+(FI-0)u1!<!>'0;>
.,(,q1I).'
q0->"Gq0-["Lofoo''
.,(,Q0i).
!foo!fsEchoDisplayCfsEchoDisplay
q0-F"E^ftForward :i1^R Quantity Forward'
q0-B"E^ftBackward :i1^R Quantity Backward'
q0-D"E^ftDelete :i1^R Quantity Delete'
q0-R"E^ftRubout :i1^R Quantity Rubout'
q0-T"E^ftTwiddle :i1^R Quantity Twiddle'
q0-@"E^ftMark :i1^R Quantity Mark'
q0-U"E^ftUppercase :i1^R Quantity Uppercase'
q0-L"E^ftLowercase :i1^R Quantity Lowercase'
q0-S"E^ftSave :i1^R Quantity Save'
q0-M"E^ftMode (mungs ^F, ^B, ^D, Rubout, ^T): :i1& Quantity Mode Set'
q0-?"E:ftm(m.mDescribe Macro)^R Various Quantities
q2u..0]1]0oget1'
q1"E:i*IQO	Invalid Quantity Operation: 0FG'
[7
!get2!0fsEchoActive
fsListen"E0^v'
FI:FCu00[2
q0-C"E:i7Character:i2'
q0-W"E:i7Word:i2fw'
q0-A"E:i7Atom:i2@fw'
q0-S"E:i7Sentence
^:i2/[0.[1
.,(q0"Gq0m(m.m^R Forward Sentence)'
"#-q0m(m.m^R Backward Sentence)'w).f(q1j]1]0)/'
q0-P"E:i7Paragraph^:i2/[0.[1.,(q0m(m.m^R Forward Paragraph)w).f(q1j]1]0)/'
q0-L"E:i7Line:i2[0.[1.,(Q0L).f(q1j]1]0)'
q0-&"E:i7Buffer:i2h'
q0--"E:i7S-expression:i2^fl'
(q0-()*(q0-))"E:i7List:i2fl'
q0-D"E:i7Defun
^:i2/[0.[1.,(q0"Lq0:S
("EJ'"#L''"#
q0:S
("EZJ'"#R'').f(q1j]1]0)/'
q0-14."E:i7Page^:i2/[0
.[1.,(q0:s


"E'"#q0"G-2'"#3'c').f(q1j]1]0)/'
q0-?"E^ft
Type quantity name: C character, W word, S sentence, P paragraph,
L line, - S-expression, ( or ) list, D defun, ^L page, & Buffer
]2oget2'
q2"E:i*IQT	Invalid Quantity Type: 0FG'
^ft70fsEchoActive
q2[.Q:m(m.m1)^R Quantity Forward-.[0.QR
q0M(M.M& Maybe Push Point)
1^R Quantity Backward..[0-.QL
q0M(M.M& Maybe Push Point)
1^R Quantity Delete[9.Q:m(m.m& Kill Text)^R Quantity Rubout -[9-.Q:m(m.m& Kill Text)^R Quantity Twiddleq.Q,:m(m.m& Twiddle Subr)^R Quantity Mark).QR-.Q[2[1
"Gq2jq1'"#q1jq2':1^R Quantity Uppercase.Qf(f(@fc)r)^R Quantity Lowercase.Qf(f(fc)r)^R Quantity SaveNFS^RPREV-1001"E
.Q@X:..K(0)1'
Q..K[..OZJ-5DJ5,0I]..O
.QX:..K(0)1& Quantity Mode Seta]*
0fo..QQuantity Mode Set Save Vector[0
q0"E6*5fsQVectoru0q0m.VQuantity Mode Set Save Vector
q.Fu:0(0)
q.Bu:0(1)
q.Du:0(2)
q?u:0(3)
q.Tu:0(4)
qSet Mode Line Hooku:0(5)
m.m& Maybe Push Pointm.vMM & Maybe Push Point'
f=.Q"E
q:0(0)u.F
q:0(1)u.B
q:0(2)u.D
q:0(3)u?
q:0(4)u.T
q:0(5)uSet Mode Line Hook
M(m.m& Set Mode Line)
1'
m.m^R Quantity Forwardu.F
m.m^R Quantity Backwardu.B
m.m^R Quantity Deleteu.D
m.m^R Quantity Ruboutu?
m.m^R Quantity Twiddleu.T
q:0(5)u0
^:ISet Mode Line Hook/0+0[1FQ1"L:I1':I*1 <7>(]1)/
M(m.m& Set Mode Line)
1Create Lunar MacrosKMMRun LibraryPurifyGenerate LibraryDSK:MOON;LUNARDSK:MOON;LUNAR >Install Lunar Macrosp[0[1[2
^:i1{:i2f62u0fsMachine-q0"N
^ft -> 2e_dsk:moon;lunar :ej2:'{
m1AIm1MLm1MC
1&& Reinitialize Airless Environment+1fs^Pcasew1fs^Mprintw0FSSail
F=User NameMOON"E
0fsfnamsyntax'
35fs%end
fsOspeedf"N-1201"L85fs%end''
71fsadline
71uFill Column
fsrgetty"e1fslinesw1fsttmode'
fs%TOOVR"n:i..A []H'
fsecholines-3"G3fsecholines'
1fsEchoErrors
:ft
fs%tolwr"e^FT   --- .(
200[0Z-200"LZU0'0JQ0<1A-140."G1A-173."L0;''C>
q0-."E^FTUPPER'"#^FTLOWER-1F$\^'
^FT CASE ---
]0w30)J'
'
qEmacs Version:\[1
^FT
Emacs 1 in Teco 
fsVersion^:=^ft in operation.  
Z"E^ft(empty)'"#^ft(bloated)'
0fsEchoActivew]1
-5426"N0u..H'Failed Mail?endsk:.mail.;failed stuffbad >
mmrmaildsk:.mail.;bad >SAIL Character Set[0.(
j<:s;.-1,(:s"Nr'"#zj').k>
j<:s_;r1a#107.id>
j<:s^;r1a#125.id>
^:i*/~}/[1
j<:s}~f(u0);-d-q0-1,-q0g1>
)j{List Bufferse[0[1[2[3[4[5[6[7f[BBind
i   # Buffer    (Mode)         Filename

2u7
0u4fq.b/5u5
<q4-q5;
q:.b(q4+4)[..o
fsReadOnlyu1
fsModifiedu2
fsZu3
]..o
.u0
q1"ni$'
q2"ni*'
4-(.-q0),q:.b(q4+7)\
i g:.b(q4+1)
15-(.-q0):f"g1',32i
q:.b(q4+3)u1
qBuffer Index-q4"e
qModeu1q0u6'
i(1)
30-(.-q0):f"g1',32i
q:.b(q4+2)u1q1"ng1'
"#q3\i Characters'
i
%7w
q:.b(q4)+q4u4
>
q6"nq6j'
q7+1f[Lines
0f[Window
0fs^RInitf[^RNormal
33.fs^Rinit[ w
:i*Buffer Menu[..J
1f[ReadOnly
0[..F

0l@f *$l\u1q1"nq1-qBuffer Index"n
q1(-1fsBackQPPtrfsQPUnwindw)m(m.mSelect Buffer)''
Type Mailing List-MMRun LibraryTMACSType Mailing ListLoad Teco File*[1f[BBind
er^yhx1]..o
:m(q1(]1))^R Load KBDMAC"m(m.mload)kbdmac
@:m:.X(()^R Load WORDAB/m(m.mload)wordab
m(m.mwordab)
@:m... ^R Defun SearchWf[sstringwf[inslenqmode[.2
(m.m& Find .2 Defun)u.2
:i*Forwards [.5[.7
"L:i.5Backwards '
-1"E:i.5BJ '+1"E:i.5ZJ '
1,(:i*)m(m.m& Read Line).5Defun Search: [.1
fq.1"Lfg0'
fq.1"EqDefun Search Lastu.1'"#q.1m.vDefun Search Last'
.[.4fnq.4j
-1"Ebj'"#+1"Ezj''
"Lb[.6-1'"#z[.61'[.3
"L0'@l
<(q.3m.2f(u.7))"L(.-q.6)"Efg0''
.u.5:s.1w
q.5-."nq.5j0;'
q.3@l
>
q.4m(m.m& Maybe Push Point)
q.7j0@l
.(0@L
QComment Start[1
Q1"E:i1;'
<B-.;-@L
@F	 R
1A-13"NFQ1F~1"N
<@L@F	 R
1A-13:@;>
0;''
>
-1F[^RInhibitw0@vF]^RInhibit
0@:f
)J.u.4
0& Find Lisp Defund:s(macro(defp"E-1'
.[1
"Gfkc'c
@fwl@f 
	L
<(0,1a*5+2:g..d-()"n0;'c>
q1& Find .Fasl Defunj"Lb'"#z'[1
0@l
<q1-."E-1'
(.,(.+7)f~.entry )*(.,(.+7)f~.entry	)"E0;'
@l>
.u16c@f 	lq1& Find Teco Defun(:s


!*"E-1'
"Lfkc'r.-1& Find Midas Defun& Find Fundamental DefunQ"Lb'"#z'[10@l[2
<q1-."E-1'
0,1a*5:g..d-A"E
.u2fwl0,1a-:"Eq2j.''
@l>^R Mini Visited Fileo[1FF"E:I1Buffer Filenames'
"#:I1Minibuffer'
[0q..o,2(f[bbind
iET g(FF"nfsdfile'"#qBuffer Filenamesf"ewfsdfile'')
i  
)m(m.m& minibuffer)1
f=:.n(0)..o"n
q.n[..ozj-5d
j5,0i]..o
hx:.n(0)'
f]bbind]0]1m:.n(0)Rain Damage:i*0u~Filename~	LUNAR~DOC~ ~Filename~Moon's -*-TECO-*- Library
$~DOC~ & Load Airless EnvironmentzS This is my init file
It's here so that comments will get compressed.
Argument is a string which is the user name
~DOC~ & Twiddle SubrOS Subroutine used by twiddle functions.
arg1 is a string which is "fw" for the appropriate chunk-type.  It will
always get an arg.  arg2 is the ^R-arg, see the documentation of ^R Twiddle Characters.
~DOC~ ^R Twiddle Characters#^R Interchange the characters before and after the cursor.
With a positive argument it interchanges the characters before and
after the cursor, moves right, and repeats the specified number of
times, dragging the character to the left of the cursor right.  With a
negative argument, it interchanges the two characters to the left of
the cursor, moves between them, and repeats the specified number of
times, exactly undoing the positive argument form.  With a zero
argument, it interchanges the characters at point and mark.
With no argument at the end of a line, as a special feature it twiddles
the two characters to the left rather than messing up the cr-lf
~DOC~ ^R Twiddle Words^R Interchange the words before and after the cursor.
With a positive argument it interchanges the words before and
after the cursor, moves right, and repeats the specified number of
times, dragging the word to the left of the cursor right.  With a
negative argument, it interchanges the two words to the left of
the cursor, moves between them, and repeats the specified number of
times, exactly undoing the positive argument form.  With a zero
argument, it interchanges the words at point and mark.
~DOC~ ^R Twiddle Sexps(^R Interchange the S-expressions before and after the cursor.
With a positive argument it interchanges the S-expressions before and
after the cursor, moves right, and repeats the specified number of
times, dragging the S-expression to the left of the cursor right.  With a
negative argument, it interchanges the two S-expressions to the left of
the cursor, moves between them, and repeats the specified number of
times, exactly undoing the positive argument form.  With a zero
argument, it interchanges the S-expressions at point and mark.
~DOC~ ^R Various Quantities#^R Quotes non-letters, otherwise hacks various Quantities.
Note that @ and ? are letters.  If followed by a number, inserts that
octal character <arg> number of times.
First character following is operation:
  F forward, B backward, D delete, R rubout, T twiddle, @ mark region, S save,
  or M to change the Mode of ^F, ^B, ^D, rubout, and ^T but not ^@
Second character following is quantity type:
  C character, W word, S sentence, P paragraph, L line, A atom,
  - S-expression, ( or ) list, D defun, ^L page seperated by ^Ls
Numeric arguments are obeyed.  ? for help.
Note that Q-register .Q is used to remember the current mode.  It contains an "fw-macro"
~DOC~ ^R Quantity Forward/^R Forward by quantities determined by .Q
~DOC~ ^R Quantity Backward0^R Backward by quantities determined by .Q
~DOC~ ^R Quantity Delete+^R Delete quantities determined by .Q
~DOC~ ^R Quantity Rubout+^R Rubout quantities determined by .Q
~DOC~ ^R Quantity Twiddleu^R Twiddle quantities determined by .Q
See documentation on ^R Twiddle Characters for how the argument is used
~DOC~ ^R Quantity Mark1^R Mark region as quantity determined by .Q
~DOC~ ^R Quantity Uppercase.^R Uppercase quantities determined by .Q
~DOC~ ^R Quantity Lowercase.^R Lowercase quantities determined by .Q
~DOC~ ^R Quantity Save7^R Put quantity determined by .Q on the kill-ring
~DOC~ & Quantity Mode SetS Subroutine for ^QMx
~DOC~ Create Lunar MacrosC Generate my library
~DOC~ Install Lunar Macros+C Copy Lunar macros to other machines
,~DOC~ & Reinitialize Airless EnvironmentS My ..L
~DOC~ Failed Mail(C Process Comsat dead letters file
~DOC~ SAIL Character Set5C Convert Buffer from SAIL to ITS Character set
~DOC~ List Buffers0C Display information about all buffers.
A recursive ^R is entered on a list of all buffers.  On exit the buffer
on the current line is selected.  Point is initially on line of current
buffer and space is bound to exit ^R mode, so this is very much like
MM List Buffers.  (Borrowed from Tmacs)
~DOC~ Type Mailing List8C Prints entry for STRINGARG in .MAIL.;NAMES.
If STRINGARG is of form <name>@<site>, <site>:.MAIL.;NAMES is used.
    Only final @ indicates site, so you can do something like:
    MM Type Mailing List$BUG-@@AI$
A numeric ARG limits depth of recursion on EQV-LIST members.
(Default depth is 3.)
<name>@<site> entries in EQV-LIST are not followed.
Prints "Done." when done, since it sometimes is slow.

(Auto-loads from Tmacs)
~DOC~ Load Teco File?C Takes a file name, executes that file as Teco commands.
~DOC~ ^R Load KBDMAC8^R Load up keyboard macros and start defining one.
~DOC~ ^R Load WORDAB*^R Load up wordab and call expander.
~DOC~ ^R Defun Search

^R Search for the 'definition' of something.
What a 'definition' is depends on the major mode.  What to search for
is asked for in the echo area; typing just a blank line searches for
the same thing as last time.  Search-magic characters (^B, ^X, ^O) work
in the name of the something.  Normally it searches from the front of
the file; an argument of ^U searches from where you are, an argument of
-1 searches backwards from the end of the file, and other negative
arguments search backwards from where you are.
~DOC~ & Find Lisp DefunS See Defun Search
~DOC~ & Find .Fasl DefunS See Defun Search
~DOC~ & Find Teco DefunS See Defun Search
~DOC~ & Find Midas Defun"~DOC~ & Find Fundamental DefunS See Defun Search
~DOC~ ^R Mini Visited FileS^R Minibuffer setting defaults to buffer filenames.
With no argument, runs a minibuffer initialized with
an ET command containing the current buffer's filenames.
Thus, the default filenames get set to the buffer filenames.
With an argument, puts the old defaults in the ET.
This doesn't change the defaults;  it just shows them.
~DOC~nRain Damagesture in the phone line.
This disables the rubout key.  Use meta-rubout or control-D.
Safe when used as directed.
~DIRECTORY~.& Load Airless Environment
& Twiddle Subr
^R Twiddle Characters
^R Twiddle Words
^R Twiddle Sexps
^R Various Quantities
^R Quantity Forward
^R Quantity Backward
^R Quantity Delete
^R Quantity Rubout
^R Quantity Twiddle
^R Quantity Mark
^R Quantity Uppercase
^R Quantity Lowercase
^R Quantity Save
& Quantity Mode Set
Create Lunar Macros
Install Lunar Macros
& Reinitialize Airless Environment
Failed Mail
SAIL Character Set
List Buffers
Type Mailing List
Load Teco File
^R Load KBDMAC
^R Load WORDAB
^R Defun Search
& Find Lisp Defun
& Find .Fasl Defun
& Find Teco Defun
& Find Midas Defun
& Find Fundamental Defun
^R Mini Visited File
Rain Damage


~INVERT~[1<Q1-1U1Q1FP;>Q1